VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Esc.13 - Leitura X"
   ClientHeight    =   2385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4965
   LinkTopic       =   "Form1"
   ScaleHeight     =   2385
   ScaleWidth      =   4965
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Leitura X"
      Height          =   735
      Left            =   1680
      TabIndex        =   0
      Top             =   480
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   735
      Left            =   360
      TabIndex        =   1
      Top             =   1440
      Width           =   4215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function Abre Lib "SWECF.DLL" Alias "ECFOpen" (ByVal Numero As Long, ByVal Tempo As Long, ByVal Log As Long, ByVal Mostra As Long) As Long
Private Declare Function Fecha Lib "SWECF.DLL" Alias "ECFClose" () As Long
Private Declare Function Grava Lib "SWECF.DLL" Alias "ECFWrite" (ByVal Comando As String) As Long
Private Declare Function Retorna Lib "SWECF.DLL" Alias "ECFRead" (ByVal Status As String, ByVal Extensao As Long) As Long

Private Sub Command1_Click()

     Dim Status As String
     
     Status = Space(512)
     Comando = Chr(27) & ".13N}"
     dll1 = Abre(1, 2, 1, 1)
     dll2 = Grava(Comando)
     dll3 = Retorna(Status, 512)
     Label1.Caption = "Status = " & Status
     If dll1 = 0 Then dll4 = Fecha()
Status = Space(512)
    
End Sub

